* lisp/calculator.el (calculator-funcall): Fix typo in last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad5baad3ef0e503f7e13f3df3cdae14823ea34b2..9030d5da9fbad817488f8bd4af00450a84da75d0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-09-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * calculator.el (calculator-funcall): Fix typo in last change.
+
        * vc/vc-git.el (vc-git-checkin): Make it possible to commit a merge.
 
        * emacs-lisp/package.el (package-activate-1): Don't let a missing

diff --git a/lisp/calculator.el b/lisp/calculator.el
index c988b7e10884e6ade29df83b49fc6fe548bb7789..c4611c12d87e6b593099d1cae3507b4781a4363e 100644 (file)
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -1287,7 +1287,7 @@ arguments."
                     ((symbol-function 'D)
                      (lambda (x) (if calculator-deg (/ (* x 180) float-pi) x))))
             (eval f `((X . ,X)
-                      (Y . ,X)
+                      (Y . ,Y)
                       (TX . ,TX)
                       (TY . ,TY)
                       (DX . ,DX)